set var orange
append var " " "blue"
lappend var "red"
lappend var "green"
puts $var
puts [llength $var]
